class APP
feature
    INIT
    do
        from  a.test:=2
        until a<2
        loop
            a.test:=2
        end
    end
    
end